home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 January / january_2001.iso / intercd / root / ^4Developers / VB / visbasdb / VBDB / VBDB Code / VB6 Code / Class 4 / QuickExample3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-16  |  4.0 KB  |  134 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDataEnvironment 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Data Environment Example"
  5.    ClientHeight    =   1995
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4530
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1995
  13.    ScaleWidth      =   4530
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton cmdNext 
  16.       Caption         =   "&Next"
  17.       Height          =   495
  18.       Left            =   2520
  19.       TabIndex        =   9
  20.       Top             =   1320
  21.       Width           =   1215
  22.    End
  23.    Begin VB.CommandButton cmdPrevious 
  24.       Caption         =   "&Previous"
  25.       Height          =   495
  26.       Left            =   840
  27.       TabIndex        =   8
  28.       Top             =   1320
  29.       Width           =   1215
  30.    End
  31.    Begin VB.TextBox txtPubID 
  32.       DataField       =   "PubID"
  33.       DataMember      =   "comTitles"
  34.       DataSource      =   "denBooks"
  35.       Height          =   285
  36.       Left            =   840
  37.       TabIndex        =   7
  38.       Top             =   840
  39.       Width           =   660
  40.    End
  41.    Begin VB.TextBox txtISBN 
  42.       DataField       =   "ISBN"
  43.       DataMember      =   "comTitles"
  44.       DataSource      =   "denBooks"
  45.       Height          =   285
  46.       Left            =   840
  47.       TabIndex        =   5
  48.       Top             =   480
  49.       Width           =   3300
  50.    End
  51.    Begin VB.TextBox txtYearPublished 
  52.       DataField       =   "Year Published"
  53.       DataMember      =   "comTitles"
  54.       DataSource      =   "denBooks"
  55.       Height          =   285
  56.       Index           =   0
  57.       Left            =   3000
  58.       TabIndex        =   3
  59.       Top             =   840
  60.       Width           =   810
  61.    End
  62.    Begin VB.TextBox txtTitle 
  63.       DataField       =   "Title"
  64.       DataMember      =   "comTitles"
  65.       DataSource      =   "denBooks"
  66.       Height          =   285
  67.       Left            =   840
  68.       TabIndex        =   1
  69.       Top             =   120
  70.       Width           =   3375
  71.    End
  72.    Begin VB.Label lblFieldLabel 
  73.       Alignment       =   1  'Right Justify
  74.       AutoSize        =   -1  'True
  75.       Caption         =   "PubID:"
  76.       Height          =   255
  77.       Index           =   3
  78.       Left            =   -1080
  79.       TabIndex        =   6
  80.       Top             =   840
  81.       Width           =   1815
  82.    End
  83.    Begin VB.Label lblFieldLabel 
  84.       Alignment       =   1  'Right Justify
  85.       AutoSize        =   -1  'True
  86.       Caption         =   "ISBN:"
  87.       Height          =   255
  88.       Index           =   2
  89.       Left            =   -1080
  90.       TabIndex        =   4
  91.       Top             =   480
  92.       Width           =   1815
  93.    End
  94.    Begin VB.Label lblFieldLabel 
  95.       Alignment       =   1  'Right Justify
  96.       AutoSize        =   -1  'True
  97.       Caption         =   "Year Published:"
  98.       Height          =   255
  99.       Index           =   1
  100.       Left            =   1080
  101.       TabIndex        =   2
  102.       Top             =   840
  103.       Width           =   1815
  104.    End
  105.    Begin VB.Label lblFieldLabel 
  106.       Alignment       =   1  'Right Justify
  107.       AutoSize        =   -1  'True
  108.       Caption         =   "Title:"
  109.       Height          =   255
  110.       Index           =   0
  111.       Left            =   -1080
  112.       TabIndex        =   0
  113.       Top             =   180
  114.       Width           =   1815
  115.    End
  116. Attribute VB_Name = "frmDataEnvironment"
  117. Attribute VB_GlobalNameSpace = False
  118. Attribute VB_Creatable = False
  119. Attribute VB_PredeclaredId = True
  120. Attribute VB_Exposed = False
  121. Option Explicit
  122. Private Sub cmdNext_Click()
  123. denBooks.rscomTitles.MoveNext
  124. If denBooks.rscomTitles.EOF Then
  125.   denBooks.rscomTitles.MoveLast
  126. End If
  127. End Sub
  128. Private Sub cmdPrevious_Click()
  129. denBooks.rscomTitles.MovePrevious
  130. If denBooks.rscomTitles.BOF Then
  131.   denBooks.rscomTitles.MoveFirst
  132. End If
  133. End Sub
  134.